home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / intro.dir / 00002_Click & Rollover.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.9 KB  |  74 lines
  1. on hPressButton
  2.   set vSprite to the clickOn
  3.   set vCastNo to the castNum of sprite vSprite
  4.   set vCastNam to the name of cast vCastNo
  5.   puppetSprite(vSprite, 1)
  6.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  7.     set the castNum of sprite vSprite to vCastNo + 1
  8.   else
  9.     if vCastNam contains "ROLLOVER" then
  10.       set the castNum of sprite vSprite to vCastNo + 1
  11.     else
  12.       set the castNum of sprite vSprite to the number of cast (vCastNam & "-down")
  13.     end if
  14.   end if
  15.   updateStage()
  16.   repeat while the stillDown
  17.     nothing()
  18.   end repeat
  19.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  20.     set the castNum of sprite vSprite to vCastNo
  21.   else
  22.     set the castNum of sprite vSprite to the number of cast vCastNam
  23.   end if
  24.   puppetSprite(vSprite, 0)
  25.   updateStage()
  26.   if the mouseCast = the castNum of sprite vSprite then
  27.     return 1
  28.   else
  29.     return 0
  30.   end if
  31. end
  32.  
  33. on hRolloverScript vFrameLabel
  34.   global gLastSprite
  35.   set vNowSprite to 0
  36.   if rollOver(7) then
  37.     set vNowSprite to 7
  38.   else
  39.     if rollOver(9) then
  40.       set vNowSprite to 9
  41.     end if
  42.   end if
  43.   if not (vNowSprite = 0) then
  44.     set vCastNo to the castNum of sprite vNowSprite
  45.     set vCastName to the name of cast vCastNo
  46.     if (vCastName contains "NOOP") or (vCastName contains "DOWN") then
  47.       set vNowSprite to 0
  48.     end if
  49.   end if
  50.   if not (vNowSprite = 0) then
  51.     hRollOverOn(vNowSprite)
  52.     set gLastSprite to vNowSprite
  53.   else
  54.     puppetSprite(gLastSprite, 0)
  55.     set gLastSprite to 0
  56.   end if
  57. end
  58.  
  59. on hRollOverOn vNowSprite
  60.   global gLastSprite
  61.   if not (gLastSprite = vNowSprite) then
  62.     set vCastNo to the castNum of sprite vNowSprite
  63.     set vCastNam to the name of cast vCastNo
  64.     puppetSprite(vNowSprite, 1)
  65.     set the castNum of sprite vNowSprite to the number of cast (vCastNam & "-ROLLOVER")
  66.     if not (gLastSprite = 0) then
  67.       puppetSprite(gLastSprite, 0)
  68.       updateStage()
  69.     end if
  70.   else
  71.     nothing()
  72.   end if
  73. end
  74.